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EDITORIAL 
Bruce and Susan got married - the bride turned up on time to the 
church! I am sure everyone will join with me in wishing them 
all the best with their marriage through the years ahead. I’m 
sure Bruce is not expecting to come back from the honeymoon to 
produce a July mag with no material, so please put pen to paper 
and provide him with what you want to see in forthcoming issues. 


Since I haven't really ‘edited’ the contents, but ‘simply’ put 
it all together, I shan’t editorialise. Fans of sideways boards 
will be busy reading - there’re even some sideways envelopes'!! 


ELECTRON COLUMN 
STEVE COSGROVE 


DESPITE comments be a certain un-named editor (not Anne), I will 
not have too many regrets about going back to my Electron when I 
lose the use of a Master. I will miss some things, but most of 
what I do is in Pascal, and that is not very different, as I am 
using my Electron ROM cartridge in the Master anyway. There are 
some things which one tends to become used to though - like a 
clock that Keeps real time. Those of you with disk drives may 
have noticed that the clock stops ticking (or whatever it 
usually does) while the drive is going. It took me ages to work 
out why I could not use TIME to see how long a disk-based sort 
was taking in BASIC. "Non MasKable Interrupts" which happen 
whenever the disk 1s accessed (and also cause the screen to 
flicker) are the answer. The real irony of this particular 
situation 1s that I have since been criticised (quite justly 
see letters last month) for. among other things, putting the 
timing piece into the program. Them’s the breaks. 


Anyone who tried the “Machine Code Print’ in last month’s mag 
will have noticed that it does not work in the Electron. The 
reason is that the ROM which ‘The Centaur’ was "strolling 
through" is very different in the Electron. 1 do not criticise 
the writer for this - but do offer an alternative which will 
work in any BBC range computer. Rather than just printing text, 
this is a "define your own error" routine. Try RUNning it, then 
typing REPORT or PRINT ERR. Then try some of the VDU commands 
suggested by ‘The Centaur’. Also try altering the numbers in 
lines 100 & 1415. This is a qood, very basic start to using 
machine code! 
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418 BRK 

415 EQUB 255 

120 EQUS “This will be printed tao!* 

125 EQUB 13 

{26 EQUB 18 

127 EQUS *So will a second line - or a beep" 
128 EQUB 7 

13@ EQUW 6 

15@ ] 

1466 CALL space 


I have not had any letters for quite some time. Surely someone 
must be having trouble with something! Those who have written 
to me regarding RAM board will get a reply soon. Yes I have 
been saying that for ages. Personal problems prevented me from 
getting anything done over May. Sorry. 


That’s it for this month. Probably have a longer column next 
month, 


HELP COLUMN 
STEVE ROSE 


I received several problems for this month, it’s good to feel 
needed. No? Suit yourself. 
First up, Mr Willoughby of Gore wrote in with five problems: 
xe Sorry Steve, got to interrupt you there - I’ve been putting 
this maq together as material comes to hand. (Beat the baby). 
You're last to arrive, so you’re getting split as follows: 

p. 6 Information page access 

p.ti Saving screens 

p.29 Mode 7 

next time: software protect (old hat, try...) 


Q@. Mr Jones, Whangarei finds that when printing with View 2.1 
and an Epson FX8@, he can’t change the page length from the 
default of 45 lines, no matter what he specifies using the PL 
stored command. 

A. An EP doesn’t reset PL subsequently, apart from that no-one 
I’ve asked has had problems. 


Q. "I wish to enter relatively long strings in a question and 
answer sequence, and I want to be able to enter commas into the 
string. The INPUT QUESTIONS statement will ignore anythin 
after a comma as it thinks it is another string [for a differen 
variable..." 

A. Your INPUT problem should be solved by using INPUT LINE (UG 


page 278). 
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SORT_REPORT - PART FIVE 





How to sort on disc. 





Steven R. 
This month’s article deals with sorting collections of 
information that are too big to fit into memory. 


This can be done using any filing system that can handle 
two files at once, so unless your tape system has been 
modified, the problem becomes a disc-related one. 


Memory v Disc 
The main differences between sorting in memory, and sorting 
on disc, lie in 
4) what actually uses most of the 
time taken by the sort, and 
2) what data is accessible at any 
one time. 


Sorting Time 
When you are sorting in memory, the main use of the time is 
in working out what to do next i.e the program is the 
culprit. When you are sorting disc files however, the 
program speed often makes little difference compared to the 
time taken in actually getting the information on and off 
the disc. 


Data Access 
A memory oniy sort has access to any piece of data at any 
time. When using files, you are limited to accessing the 
part 9+ the file currently in the file buffer, in memory. 


The Speed Problem 
Sorting on disc usually involves at least two files, and 


often three or four. Since you are using more than one file 
at once, the disc drive read/write head has to continually 
move backwards and forwards between files, as you read from 
one and write to another. Not only are you waiting for the 
information to be transferred onto or off the disc surface, 
but also for the read/write head to arrive at the right 
place. When sorting large files, it helps to have-two disc 
drives! 


Methods Available 
When sorting files, you generally have three choices. You 
can: 
a) repeatedly split your data between several files, and 


Co OO OO OC OF CO DO 06 OO OO OC OO OO OO OO OO OO 00-00 OO 00 00 00 06 90 OC oo DO CoO 


S 


06 00- -80- 0 00 06-00 06-00 06 96-064 20-06 OO 00-00 20 00 06-05 20 25 0O--CO OO 00 2600 


recombine them again until the data is sorted, 

b) sort chunks of the file using a memory-only sort, and 
then combine the chunks 

c) if your file has records which have fields in the same 
order (a library catalogue card is like this), which you 
can use to identify the record (ie a Key), then you can 
sort the Keys, with pointers to the complete records. 
These pointers can be stored in a separate file to provide 
an index to the record required. 


The first choice is called a merge sort, because the data 
is split into several files, and then these files are 
merged back together. That is the method described this 
month. Next time, Ill discuss the second choice of 
combining sorted chunks into one sorted file. 


The MERGE sort 
This is a type of sort that is often used on mainframes. It 
is a faster disc sort than the others covered so far would 
be, because it is designed to cater for the I/O problems 
involved in sorting disc files, rather than the speed 
problems of sorting arrays in memory. 


There are several different types of merge sort, for 
instance the two-way merge sort, the cascade sort, and the 
polyphase sort. 

In this article I’1] talk about the 
two-way merge sort. 


The Algorithm 
This sort transfers sequences of items between three files. 
You can think of sequences as groups of items that are in 
order (in this case ascending order), ie each item is 
larger than the item to its left, and smaller than the item 
to its right. 


The sort splits the main input file into two other files of 
alternate sequences, then copies those two files back into 
the (now empty) input file, taking the lowest number each 
time, so that the new file holds longer sequences. (This 
copying process is called "merging", and some form of it 
crops up in all disk-based sorts.) 

The file is repeatedly split apart and merged back together 
until all of the items are in one sequence and so are 
copied to one file. 


Here’s an example. Suppose there are ten numbers ina file, 
in this order: 
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(Note: I’ve used numbers here because they are quicker for 
us humans to compare. The computer can compare letters as 
easily as numbers, and there is no reason why you can’t use 
this sort to sort strings, simply by adding a $ to the end 
of the appropriate variable names.) 


The merge sort first splits these numbers, as sequences, 
into two files, like this: 


Input file: 5 24 8 1 6 180 7 9 3 
Output file one: 5 1 & 184 3 
Output file two: 2 4 8 7.9 


Remember that numbers are copied to a file until a smaller 
number is found, then copying switches to the other file. 

I’ve spread the numbers out so that you can see where they 
go to and come from more easily. 


Now the two output files become input files, and are merged 
back into the original input file (mow an output file), as 
follows: 


Input tile one: 5 1 6 18 3 
Input file two: 4 ? 9 


tw 


8 
Jutput file: 245 ! 6 8 7? ¥F 16 3 


Now the files swap input/output roles, and the input file 
15 split back into two files: 


Input file: 2 45 1 6 8 7 ¥F 18 8 
Output file one: 2 4 35 7 9 18 
Output file two: 1 6 8 3 


And these are merged back together again: 


Input file one: 2 4°85 ? > 18 
Input file twa: 1 6 & 3 
Qutput file: t 2 4 5 6 7? 8 ? 18 3 


Mow the files swag input/output rales again, and 
the tnput file is split back into two files: 
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Input file: i245 6 7 8 9 1@ 3 


Output file one: 1 2 4 5 6 7 8 9 16 
Qutput file two: 


And these are merged back together again for the 
last time: 


Input file one: 1 2 45 6 7 8 18 
Input file two: 3 


Output files 123 45 6 7 8 9 18 


The sort doesn’t yet Know that the numbers are sorted, but 
next time the file is split, all numbers will be copied to 
one output file, and the sort will stop. 


The Proqram 
Because the original is in Pascal, and I haven’t finished 
converting it to Basic, the Editor has asked that I get a 
Basic version working before you see any more. 


Q.INFORMATION PAGE 


I want to provide an information page accessible ... et ee 
at any stage, and ... return to the point in the program 

the Uitermation screen is accessed. (... a PROC - ENDPROC 
situation would return me to the end of Cthe] screen).” 


A. This is a matter of saving the program position somehow 
before displaying the page. You could try something like this: 


PROC_DISPLAY.ROOM.DESCRIPTION — 
REPEAT:PROC_GET_INPUT:UNTIL valid_reply 


DEF PROC_GET_INPUT 
valid_reply = FALSE 
REM get the reply 


IF 'NBO_PAGE_WANTED THEN PROC_DISPLAY_PAGE:ENDPROC 


REM rest of the procedure 
valid_reply = TRUE 
ENDPROC 
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SOMETHING BIGGER III 
Anne F 





Last month you actually got the rest of the listing, so here 15 
the explanation of PROCfinal. 


Ending a program can be as easy as pressing Break, but if you’re 
offered a way out, or forced to end the program, then it makes 
oe for the programmer to tidy up after him/her/itself. For 
instance: 


VDU 4 - the text cursor is reinstated (in case you exit the 


program in the middle of line 103@ when the graphics cursor is 
being used). 


*FX 4 - get those cursor Keys behaving like “normal” cursor 
Keys. 


CLS —- clear the screen 


VDU 23..... reinstate the blinking cursor so you can see where 
you are on the screen. 

COLOUR 3 - revert to white. Any other colour changes made 
solely for the program may also be returned to their logical 
colours as well. 


This tidying up 1s a good habit to get in to, sometimes it 15 
more important than others to have it. 


The rest of the PROC deals with what would normally be the 
equivalent of a High Score table. 


1340 kilo% = 31-(memory% DIV 1024) 

1350 byte% = 1024-(memory% MOD 1024) 
These 2 lines calculate how much memory Pacbeeb has left in your 
computer, which will be your score. Because what you have been 
Keeping track of in memory% is the amount of RAM eaten up, you 
need to do this arithmetic to calculate how much RAM is left. 


memory% 1s the number of bytes eaten. There are 1024 bytes ina 
Kilobyte, so line 134@ divides memory% by 1024 to find how many 
whole Kilobytes of RAM have been lost, subtracting from 31k 
(There are 32K available, but as there will already be some 
bytes lost, there are only 31 whole K to start with. 


DIViding gives you the, whole; MOD gives you the remainder in a 
division sum 
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exercise: 
3 divided by 3 gives you 1 whole plus 2 remainder. 
On the computer: 
PRINTS DIV3 gives 1 
PRINTS MOD3 ~ gives 2 


So byte% is the number of bytes eaten that don’t add up to whole 
Kbytes, subtracted from 1024. 


Papen ents use these 2 variables to print up the "score": 
{ 

1378 
The one screen line has been split in the program for clarity; 
it is possible that Pacbeeb will have eaten an exact multiple of 
{024 bytes, in which case your computer is left with an exact 
number of K RAM left, and no bytes, so you wouldn’t want the 
word " bytes” printed out on screen. Hence the "IF" condition. 


The screen appearing now attempts to simulate the screen as if 
Break had been pressed, when it usually says: 

BEC Computer 32k 

Basic 


Change line 1398 from PRINT to: 

1390 *HELP 
This command shows up everything in the machine by way of ROMs, 
versions of them etc, just to reassure you that Pacbeeb didn’t 
create as much havoc as he could have! 


This PROC assumes you have a Model B BBC. Obviously Electron, 
Master, Model A, Tube-using Model Bs etc will want to alter the 
message of line 136@ slightly. 


Also you may have noticed that while the final score has been 
covered, there has been no mention of the move by move score. 
That’s way back in line 15@ which you got in April: 

158 PRINTTAB(S,1)"He has eaten ";memory%;" bytes" 


And how to get out of the game and into PROCfinal other than via 
a typing error in the listing? Get Pacbeeb into the doorway 
(X%=39 AND Y%=3@)! 


WE“VE COME A LONG WAY ?? 


Dominion Sat 3 July 1982 

Computer widow: "...He reads computer magazines the way he used 
to read Playboy. His idea of a centrefold now is a 64-K Ram 
Microcomputer that will expand to 128 bytes and produce a 
six-colour high-graphic screen resoalution...." 
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DATABASES 





Lesley Hughes 


Almost any organised collection of files, especially those 
similar to a library’s card catalogue, form an informational 
database. The library card catalogue illustrates the important 
features of a database: 

{. multiple access points 

2. each access point leads to a complete set of data 

3. filing rules to determine what files where 


As this suggests, any successful manually-operated database has 
already had the decisions made which lead to a satisfactory 
computer-based system. If you are thinking of setting up a 
database, you will need to make similar decisions: 

1. What information will the database contain 

2. How will the information in each record be arranged 
3. Which fields in the record will be indexed 
4. How long will each field be, or do you have available 
Variable field length 
5. When will records be deleted 


Referring back to the library catalogue card, each card contains 


From the book: Added by librarian: 
title dewey classification 
author subjects 

publisher 

date 

paging 


Since each field indexed increases the amount of storage 
required, the size of the database is determined not only by the 
size of the record, and how many records, but also by how many 
fields are indexed. 


In the large NZ-wide database, the New Zealand Bibliographic 
Network, each field in the record has a tag and is of variable 
length, but only a few of the fields are fully indexed 
eg title, author, subject, publisher if not commercial. 

This large system currently has 2% million records and is 
growing by about 300,000 records per year. Similar cataloguing 
databases exist in Australia and some states of the USA. All 
these databases receive tapes from the Library of Congress, the 
British Library System, and the Canadian National Library each 
month, so the database contains details of current publications 
in English within 3 months of the book being available in the 
country of origin. 
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No records, once input and polished to the required standard, 
will ever be deleted so this system will continue to grow larger 
each year. Eventually most libraries in NZ will use this very 
large database for cataloguing, subject requests and Interloan. 
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Q. "I am writing an adventure type program ... Cand] want to be 
able to provide a situation using text and, if required, also 
provide a picture (or map, etc). I therefore need to save 
pictures in files on disk. How do 1 create these files and 
access them from the program please?" 


A. Your problem can be solved in three ways. 


One way is to *SAVE the area of memory corresponding to the 
screen display. This area is between HIMEM for that mode and 
&7FFF inclusive, so for Mode 2, you would use *SAVE filename 
3000 $000. See page 160 of the User Guide for the memory used 
by each screen mode. HIMEM can be &3000, &4000, &5800, &6000 or 
&7C@0, depending on the Mode. To display the picture, change to 
the mode you were in when you #SAVEd the file, and just *LOAD it 
back into memory. The drawback of this method is the disk space 
needed to store one screen. Assuming that you have 200K (one 
side of a DFS disk) for this, you can only hold 1@ Mode 0,1 or 2 
screens, or 20 screens in Mode 4. 
Also written up in September ‘85 Beeblet, copies from. User 
Group... a ie 


The second way is to draw each picture using only VDU equivalent 
commands, like MOVE, DRAW, PLOT, etc, and save the VDU commands 
to disk in the order they are used to draw the. picture. To 
display the picture, read the file back a byte at a time, and 
VDU each byte, i.e. REPEAT: VDU BGET#channel:UNTIL EOF #channel. 
This will redraw the picture exactly as. you drew it, only much 
faster. Depending on how many lines you used compared to dots, 
this can reduce the amount of disk storage space considerably. 


The last way is to compress the amount of information used to 
store the screen, for instance by reducing a row of pixels in 
the same colour to one byte holding the. colour, followed by a- 
byte holding the number of times that the pixel. occurred. 
Depending on the picture, this can reduce the disk space 
required to a fraction of that required by #SAVEing it, or 
increase it by up to 100%, i.e. 40K for Mode 2. There were 
assembler routines published in the December 1985 Acorn User 
{Article on page 89) which save a screen in this way, and 
display it again. 
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Reviewer: Neville Hudson 
Masterfile II from Beebug (UK price ‘’22.00) 


Masterfile Il is a disc based general purpose database allowing 
large amounts of information to be stored and processed. It 
allows up to 18 fields per record with the only limitation to 
the nmumber of records being the capacity of the disc. 
Masterfile IJ is also able to be used with the Wordwise and View 
word-processors. 


I have found this to be the easiest to use database system of 
all those which are currently on the market. 


On 'BOOTing in Masterfile II the first thing you are asked for 
is the day’s date. Having done this the Main Menu (below) will 
appear on the screen. 


BEEBUG MASTERFILE II 


Set up file name 

Enter record description 
Look at/alter a record 
Printer configure 

Open file 
Initialise/Clear file 
Enter search data 
Print/Search file 

Sort 

Transfer/append files 
Compact the file 

Global field calculation 
Activate ‘TAG’ file 
Utilities 

Form desiqn 

Stop the program 


OPTION? 


VOBZEZCrKO“TOBMNAOOWDY 


Getting past this point can cause some fun and games but only if 
you don’t read the manual properly. Included with the package 
i$ a very good manual and example files. The manual takes you 
tg by step through the various procedures by using the example 
files. 
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I have used this program to store personnel records and I also 
produced a telephone number and address book with 700 records. 
In practice I have found that using more than i2 fields per 
record reduces the memory available so much that it won't allow 
more than about 45@ records to fit on a standard 8@ track disc. 
However, this is dependant on the size of the fields of course. 


To sumarize then, Masterfile I] is a very good database system 
which is easy to use even for the novice. It can sort on more 
than one field although the first time I did this I wondered if 
it would ever finish. The ability to use Masterfile with 
Wordwise or View is something I have only done once but with 
considerable success. I can recommend this proaqram to all those 
people interested in database systems. 


Jill A’s experience with Masterfile I is that she too likes 
Masterfile, but that it is very slow at sorting. Speed seems to 
vary, depending on the order of the file, compared with the 
order you are wanting to sort into. One of her files with about 
12@ records can take even as much as 258 minutes for sorting. 
Neville finds that to sort 45@ records according to 3 fields can 
take 46 minutes. So presumably Masterfile II] has moved to a 
somewhat quicker sorting routine. 


BEEBUG’s FILER | Reale’ 
Neville Hudson 


I recently typed in a program from Beebug called Beebug Filer 
which on first impressions has similiar abilities to Masterfile 
I]. The main differences are that it is command driven instead 
of menu driven and it is also free. 


Beebug themselves say about the ‘Beebug Filer’ "a program 
published in a magazine cannot hape to provide all the features 
and power of commercial packages...." but I think they have made 
a good effort. The program is structured to allow easy 
extension by users and currently comes in four parts. We have 
written to Beebug asking for permission to publish the Beebug 
Filer in Beeblet. We will keep you informed of progress in this 
area, 
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DISCDEX< - REVIEW 
Andrew Hill 


DISCDEX from Clares Micro Supplies, ‘’15.00 

The unique answer to a disc user’s nightmare of searching 
through his/her discs to find that useful routine, unlock 
program, etc. What the program actually does is catalogue 
all of your discs and place these names in a file for 
future reference. There are 4 different files available 
(eg one for games, one for utilities etc), each of which 
can hold 100@ titles, giving room for 4,00@ titles on the 
one disc. The disc is supplied with some blank stickon 
labels for use with the Print option. Although there is an 
adequate number of these supplied (about 40), there was not 
enough left for me to use once I got the printer “psyched 
out"' Also supplied were some numbered stickers to number 
your discs with. These are quite small and hence quite a 
fiddle to get off the sheet - half the adhesive ends up on 
your fingers. 


The printer option allows use of either serial or parallel 
port, with various options for each. There is a special 
option on the printout menu for those without Epson-alikes. 
It allows you to insert the control codes you wish to be 
sent to the printer. The stickers to go on the disc (or 
its jacket) have a catalogue of its contents. To fit 2 
sides of the disc on one sticker requires a superscript 
mode. 


Cataloguing discs 1s very easy. It is best to categorise 
the discs first, to save time later. Sort them into an 
acceptable order then stick on the numbered labels. All 
that is left is for you to put the disc in the drive and 
wait for the program to read the catalogue from both sides 
of the disc. the program ignores the filename '!BOOT. 
People who use the *BACKUP command often should have no 
roblem doing the previous step! When you have compiled a 
ist of all your programs you can then print labels or a 
complete list. A useful facility is that you can look for 
a particular program, then load it from within this program 
by inserting the appropriately numbered disc shown on the 
screen in the drive. You can also browse through the files 
very easily with a good editor. Deleting titles is easy to 
do and you can actually delete the program from the actual 
disc it is on at the time. Overall I am very pleased with 
this utility as it has finally relieved the nightmare of 
searching for that one program that you Know is somewhere! 
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NEW PRODUCTS FROM COMPUTER CONCEPTS 
From Neville Hudson’s June Micro User Magazine 


Following the very successful INTER-SHEET and INTER-CHART are 
three new products from Computer Concepts. They have this to 
say for themselves:- 


“INTER-WORD" 

In the past we have produced WORDWISE and WORDWISE PLUS, the 
most successful word processors for the BBC Micro. INTER-WORD is 
our latest and our best; this program is 32K long (twice the 
size of WORDWISE PLUS and four times the size of WORDWISE) 
ensuring that it has more features than any other, and is far 
easier to use. And of course INTERWORD is part of the only 
truly integrated set of ROMs for the BBC Micro. 

We intend to sell this for the first time at the BBC Micro User 
show (at a special show price). We are so sure that you will 
agree that this is the best word processor, that we are prepared 
to give a money back guarantee if you are not satisfied. 


“SPELLING CHECKER" 

We will be showing the new spelling checker ROM designed to have 
50,000 words on a single chip. This means that mo discs are 
required and that it is extremely fast. User defined 
dictionaries are possible in sideways RAM or disc. 

This supports real time spelling checking (checks while you 
type), and is desiqned to be totally compatible with WORDWISE, 
VIEW and the new INTER-WORD. 

Other features include crossword solving, file checking, 
sound-alike checking etc. Many of these features are available 
directly from within other ROMs such as VIEW or BASIC. 


"INTER-BASE" 
This is the last part of the ROM-LINK series and will be 


demonstrated, but not yet on sale. It out performs all other 
database ROMs on the BBC Micro and many other machines and 
provides a totally flexible data handling system. 


We have sent ta Computer Concepts for more information and 


prices for these products. Details will be provided as soon as 
they are available, 
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RAMMING THE ROM 
By John Andrew 


The availabilty of cheap RAM chips has enabled those with some 
technical skill to cheaply add sideways RAM in blocks of 16K. The 
circuit shown in A&B COMPUTING of DECEMBER 1985 shows very briefly how 
it is done, The RAM chips are available from AWA as Hitachi 6264LP15 
(or 6264P15, the LP stands for low power, an advantage for battery 
backup). The 74LS158 quad fliplop is available from Dick Smith 
Electronics. One block would set you back less than $50. For those not 
technically bent some anti-static precautions must be taken before 
playing around inside the BBC. To prolong the life of the machine use 
a jumper lead with 100K resistor in series connected between the BBC 0 
volt rail and, say, your metal watch band. Also leave the computer 0 
volt connection jumpered with another earthed appliance all the time. 


Suitable RAM software is readily available to match commercial sideways 
RAM. The BEEBUG magazine of November 1985 shows the basic building 
block for your own sideways RAM program when you want to work in 
assembler code. This program is virtually a header and tail for your 
assembly program. The March issue of BEEBUG shows how a silicon-disc 
type of RAM system can be used. This program allows you to RSAVE and 
RLOAD into your new RAM. With a small battery and a couple of isolating 
diodes it is possible to save quite a large BASIC program even with the 
power off. In the January 1985 issue of ELECTRONICS AND COMPUTING is a 
program to turn the RAM into a 13K printer buffer. The MICRO-USER of 
June, July and August 1985. also has a series of articles of how to use 
Sideways RAM 


4ii the above seems rine except that the [1-Cheapo, described briefly 
above. is unwelcome among the other ROMs and the operating system. If 
you. have an Acorn DFS and a standard BBC B the Listing shows how you 
can force your source code into the RAM area at address 15 or 14 
(front right or just left of it) despite the protestations from the 
rest of the BBC. Essentially the code is pushed in using an ‘assembed' 
program. Even so, I found some extra corruptions regularly occured 
with my machine, but not in others. The corruptions mainly varied with 
the memory location used for the source code (&B00). The corruptions 
produced in my machine are.pushed out in a yatta sequence using the 
assembled code at lines 300 to 330. If you have use some other code 
location or have a different configuration you too might find some 
corruptions and may need to alter the code. The *MOTOR 1 command is my 
way Of WRITE-ENABLING the RAM rather than the switch shown in the A&B 
article. A small 5 volt relay is in parallel with the normal cassette 
relay. You could use the cassette relay contacts instead, but, only if 
you. disconnect them from the cassette socket. If you dont then someone 
will inevitably conmmect a cassette drive and make a mess of the BBC 
electronics. 
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The program will also verify that the RAM code has been successfully 
installed in the I1-Cheapo RAM system. As that part of the program is 
in BASIC it is somewhat slower. It probably only needs to be checked 
once for your source code so there is no point in speeding it up. 
Essentially this section tells the system to read a byte from your RAM 
and compare it with the same information put in the normal BASIC work 
area. 





AEB COMPUTING DECEMBER 1985 
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For those extra keen it is possible to keep extending sideways. A 
switch is used by the author to write-enable only one of the RAM banks 
at a time. A user port terminal and other relays could be used to 
write-enable the extra RAM banks. You also could use a 4016 quad switch 
for that purpose. The banks have been used in the battery back-up mode 
with a pair of diodes to isolate the battery from the RAM (during 
power-on) and the rest of the BBC from the battery during power off. 
This is not recommended to novices. Corruptions in your assembler code 
can cause difficulties that are not removed on power down and this 
option should only be used by the wary. 


HM6264LP-10, HM6264LP-12———— 


HM6264LP-15 
8182-word x B-bit High Speed Statice CMOS RAM 
® FEATURES ek de ee ge 
© Fast access Time 100ns/$20n/150ns (max.) 
© Low Power Standby Standby: D0.01imWityp.) 
Low Power Operation Operating: 200mW ftyp.) 


Capability of Battery Back-up Operation 

Single +5V Supply 

Completely Static Memory No clock or Timing Strobe Required 
Equat Access and Cycie Time 

Common Data input and Output, Three State Output 

Directly TTL Compatible: All input and Output 

Standard 28pin Package Conliguration qp-26) 

Pin Out Compatible with 64K EPROM HN482764 ee ee 
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10 REM PROGRAM TO LOAD SOURCE CODE INTO RAM/ROM AREA (via &3000) 

20 REM SAVE"RAMLOAD" 

30 REM F.J. Andrew 24.4.86 

40 MODE7:REM Cassette light to indicate writing possible 

50 *MOTOR 1 

oF Oeeea 16 check p.31 for odd characters 

80 UNTIL R%<16 

90 DIM File 40:PROCassemble 

100 INPUT"Name of disc file to be loaded", File$ 

110 $File="LOAD "+File$+" 3000"':XZ=File MOD 256:YZ=File DIV 256:CALL&FF 
F7 

120 CALL upload 

130 ONERROR MODE7:PRINT"Press <BREAK>'":END :REM PROMPT TO ADVISE M.O.S. 

140 *HELP 

150 INPUT"Press <BREAK> to enable or Y to verify first",V$ 

160 IF V$="Y"' THEN PROCverify:PRINT'Now press <BREAK>":END 

170 END 

180 DEF PROCassemble 

190 FOR I= 0 TO 2 STEP 2 

200 P%=&BOO 

210 LOPT I 

220 .upload 

230 LDA#&6F:STA &81:LDA#&BF:STA &83 % Starting at top edges 

240 LDA#&00:STA &80:STA &82:LDA#8&40:STA&B84 % &40 pages to shift 

250 .newpage LDY #&FF 4 Start at page top 

260 .inpage LDA (&80),Y:STA (&82),Y:DEY ‘ Transfer & decr. down the p 
age 

270 CPY #&FF :BNE inpage 5 If page end 

280 DEC &81:DEC &83:DEC &84 % goto next page 

290 LDA #&0:CMP &84:BNE newpage 

300 LDA#&8B:STA &83:LDA#&3B:STA &81:LDY#&18:LDA (&80),Y:STA (&82),Y 

310 LDY#&10:LDA (&80),Y:STA (&82),Y % Routine to show how to 

320 LDY#&08:LDA (&80),Y:STA (&82),Y % repair individual 

330 LDY#&00:LDA (&80),Y:STA (&82),Y % corruptions at 8B10,8B08 & 8B00 

340 .end LDA #&89:LDY #&00:LDX #&00:JSR &FFF4 5 Turn motor light of £ 

350 .leave LDY #0 4 Delay a while to ensure relay is off 

360 fe INY: NOP: NOP: NOP: NOP: BNE wait :RTS 

370 

380 NEXT I 

390 ENDPROC 

400 : 

410 DEFPROCverify 

420 Y%=R% :REM YZ must have RAM address 

430 PRINT''Verifying pages...." 

440 CZ=0:FOR LZ-&80 TO &BF 

450 PRINT;'']"3uL%3'.""s :PROCcheck(L%) 

460 NEXT 

470 PRINT''''Check complete. ": IF C4-O:PRINT;"No corruptions.":END 

480 PRINT:C%;" corruptions in sideways RAM/ROM" 

490 PRINT"area at the addresses shown by'''"the 4-Character HEX numbers. 
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500 ENDPROC 

510 : 

520 DEFPROCcheck(MZ) 

530 2&F7=M7Z:Z2=256*LZ :K7Z=0 

540 REPEAT: ?&F6=Z7Z: Char=(USR(&FFB9 ) AND&FF ) 

550 IF Char<>?(ZZ-&5000) PRINTZZ;" "311?(ZZ-&5000) 5 :CZ=CZ+1 

560 Z%=Z2+1:KZ=KZ+1 

570 UNTIL Ki>&FF:REM END OF PAGE 

580 ENDPROC 

600 DEFPROCfindram 

610 FOR Y%Z=15 TO 12 STEP -1 :REM STEP THRU SOCKETS 

620 NZ=&08:N$="" 

630 REPEAT: N%Z=N%+1:27&F7=&80: 27&F6=N%:REM HUNT FOR RAM /ROM NAME 

640 Chr=(USR(&FFB9)AND&FF ) 

650 IF Chr<127 AND Chr>31:N$=N$+CHR$Chr 

660 UNTIL Chr=0:REM END OF NAME 

670 PRINTTAB(O,Y%) 3¥%;" "";N$;TAB(20); 

680 27&F7=&BF: 27&F6=&FF 

690 C%=(USR( &FFB9)AND&FF ) 

700 REM CHANGE AND READ INTO D% 

710 ?&BFFF=0 

720 D%=(USR(&FFB9)AND&FF ) 

730 REM CHANGE AND READ INTO E% 

740 2?&BFFF=&FF 

750 E%=(USR(&FFB9)AND&FF ) 

760 ?&BFFF=C% 

770 IF C%=D% AND C%Z=E% PRINT;" NOT write-enabled":ELSE PRINT;" write e 
nabled": R2Z=Y% 

780 NEXT Y% 


790 IF RZ<16 PRINTTAB(0,18);"0.K." ELSE PRINTTAB(0,18): "Operate the 
write-enable switch" 
800 ENDPROC 


PRINTER PLEASE? 
Is there anyone in Wellington area with a daisy-wheel or NLG@ 
printer that could be borrowed for a weekend? Gerard has a file 
needing high quality printing rather than standard dot matrix 
printout. 
Gerard can be contacted 862-187 home or 859-159 x355 bus. 


BANDA SHEETS 

Gerard was told that banda sheets were cheaper to reproduce than 
photocopying material. He removes the ribbon from the printer 
head of his dot matrix printer, inserts a banda ink sheet along 
with the paper, and presto - one very clear banda. One thing to 
note: the rollers above the print head that hold the paper cown 
need to be moved to either side to avoid vertical lines down the 
page. 
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WATFORD BOARD FAULT 


Graeme Robertson writes of his fault-finding. Whilst most of 
his system was purchased locally, his Beeb came from Watfords 
with their DFS, 32K RAM board and Mk2 ROM board, all fitted by 
Wattfords. He is apparently not alone in his problems as another 
person near him had similar ones: 


4. The MK 2 ROM board had come adrift in transit and a pin 
broken off the 2&-pin socket. Because the whole board is 
actually located by this socket, it caused occasional contact 
problems (for example when the machine is transported). 


2. The whole package was impounded by Customs because the 
Customs Declaration identified it as "spare parts for electronic 
test gear, value 19@ pounds". 


3. The RAM board gave rise to "spelling mistakes" in View files 
or Basic progams. This was due to the dropping of one bit in 
ASCII codes, which turned "r" into "p" for instance. Watford 
actually replied to this query and provided a new, more accurate 
capacitor for the board (something to do with the refresh rate 
of the board they said). This, together with cleaning of 
contacts, cured the problem completely. 


4. At the same time the system was showing a disastrous 
tendency to crash. At first I thought of overheating, but with 
a fan crashes continued in increasing frequency. Even turning 
the power off and on again would not restart the machine. 
Eventually the machine could only be used for 5 minutes or so. 
This was traced to a fault in the ribbon cable connecting the 
board ta the 65@2 socket, and was simple to fix by refitting the 
plug. 


I still feel the need for a separate power supply with dual 
drives although the system now works well. I am very pleased 
with the facilities offered by the expansion boards, even though 
there has been considerable pain and anguish involved in getting 
everything operational. 


I am concerned however, at Watford’s performance in answering 


letters. Apart from one very helpful letter with the new 
capacitor, they seem rather slow to respond. 
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1 PROGRAMING EXERCISE 


Anton Erasmuson 


Origami is the Japanese art of folding paper. Westerners, 
somewhat less patient, cut paper, and embassies have cunning 
devices called paper shredders. Rumour has it that Japanese 
embassies have resort to a devilish fold that can’t be unfolded. 
Possibly that’s what should be done with this article, which is 
about a particularly repetitive amd bureaucratic method of 
cutting paper. 


A4 paper A sheet by any other name would be a different size. 
Why call it A4? Why name it after a British highway? What size 
is A3 paper - bigger or smaller? 
The A(n) system is a triumph of design by committee. There are 
three rules: 
{. All sheets are rectangular, and have the same ratio (r) 
of short side to long side 
2. Two sheets of A(n+i) size can be made by cutting an 
A(n) sheet in half 
3. A(@) paper has an area of one square metre 


From that one can deduce: 

- that the ratio, r, is the square root of a half, 

~ that the long side of A(n+i) is the same length as the short 

side of Ain) 

: that the short side of A(@) 15 the square root or r metres 
ong 

' - and that 1t won’t take too many binary chaps to make an A(n) 

paper too small to see. 


The object of this article is to give novice programmers a 
chance to practice writing programs that use a computer to 
search for answers to a well-defined problem. (The answer to 
the undefined problem is 42, so that’s been solved). 


Example problem: 
What size is A4 paper ‘in millimetres? 


r = $QR(8,5) 
short = 1088*SQR(r) : REM short side of A@ in 
mm 


FOR loop% = 1 TO 4 

long = short 

short = lonqgér 

NEXT ; 

PRINT INT¢short+@.59;3" by "“SINTC1ongt@.5) 
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And now a Suitably sillier problem that requires more loops: 

The smallest sheet I can imagine, call it A(min%), is a 
rectangle of 11 rows of neutrons in a neutron star. As the 5 
even rows (of 8 neutrons) fit in the hollows of the 6 odd rows 
(9 neutrons), which is near enough to the correct ratio. Given 
that a neutron has a diameter of about 1.33#10-15 metre, what is 
the value of minh? 


To approach this sort of problem, where you have a starting 
point and a direction to head off in, proceed as in the example 
above; only use a Repeat..Until structure. Note the endpoint is 
not exactly Known; you want a value of "short" very near 
{.33E-15 * 11/SQR3 So loop away until "short" is smaller than 
the target value. Then see if "short" or its previous value 
(preserved as "long") is nearer the target. 


A similar problem: 

An A(n) sheet can be folded to give a box with maximum enclosed 
volume if the edges have ratios of 1:1.59755:2.6735 

Find m such that a box with those ratios has a volume near 
enough to a cubic micron. 


This problem requires some experiment to see just how a box gets 
wrapped. From that you can deduce what to divide "short" by to 
get the ae of the shortest box edge, and thus the volume is: 
1#1.59755#2.6735 this. 

Loop as before, down to smaller and smaller boxes, stopping when 
the volume is too small, and comparing with the previous value. 
Save previous at the beginning of each loop: this means giving a 
false, high value to start looping with. 


To those who want to Know if they got a correct answer, plug 
either of the answers as values for "ans" into this equation: 
PRINT ((ans~82)#ans-2799)#ans 

The answer should be 165168 
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WOROWISE+ KILLS VERBOSITY 
G.C.F 


INTRODUCTION 


It’s fine to use long names to ease development of programs, 
especially when you have a co-processor available, but it may 
leave you with a program too big to run on a standard Beeb. 
There are commercial products to remove spaces, produce 
multi-statement lines etc. However they may not be sufficient, 
or not within your budget, but you have Wordwise+. If you have 
the software to produce multi-statement lines, you should use 
this after using the following program. 


This utility, "W.REPVAR" will replace selected variable, 
procedure and function names with 2-character identifiers. 


SPECIFICATION 


a) Automatically generate 2 character identifiers. 

b) Reject any which match any existing pair of letters - this 
conservative strategy avoids duplicating 2 character names 
already used. 

c} Spread the identifiers over as many different initial 
letters as possible - BASIC has separate pointers to the 
variables in HEAP storage for each possible initial letter. 
This is a speed optimisation feature. 

d) Take names (or labels) to be replaced, from a file. The 
file consists of one mame per line, previously set up via 
Wordwise. By not automatically working out which names to 
change, this simplifies the code. It more importantly 
means that if the program uses EVAL and needs some 
function and variable names to be unchanged, then you can 
avoid having them changed. 

e) Reads ina spooled BASIC file 

#) Write out a new BASIC file, in a format that can be *EXEC’d 
to create a new legal BASIC program. 

g) A check must be mde so that the new file does not overwrite 
an ex1sting one. 

h) AS an option, print out a report on the names changed, and 
the byte savings both per replacement and as a cumulative 
Saving. Any candidate name that does not result in savings 
should then be highlighted as a potential error. 

i) Locate and print the first line containing a REM, to 
identify the program in the report. 


D Remove the trailing pad character W’wiset substitutes for 
line feeds. 
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NOTES: 

a) Tf you want to change a long name (eg "_cond_text_acts") as 
well as another mame (eg "“text") which coincidentally is 
contained in the longer name, then you must specify the longer 
name first for changing. Otherwise the longer name will be 
changed to something like "_cond_BX_acts", and would not be 
found when the W’wise program later looks for the word 
"“cond_text.acts” to change. In this case, the report would 
highlight the fact that no bytes were saved by substitution - 
because it could find no occurrences of "_cond_text_acts" 


b) Perhaps not realised by many people, the pound character 
and underline (_) are also valid characters for variable names. 


c) The blank lines and indentation of the listing below are 
not required for the program to run, but are there for easier 
reading. 


d) The operating system returns a channel number of zero if 
you attempt to open a file that does not exist on the specified 
side of a disc. This fact is used in the PROCs "request_input" 
and "request_output" 


e) In several places within the code, the printer is enabled 
if a printout has been requested, but it is automatically 
disabled when not required. 


HOW TO USE: 
a) Coad your BASIC program "B. FROG" 
b) Create a spooled file of the BASIC program -eg 
LISTO®@ 
*SPOOL S.FROG 
LIST 


*SPOOL 

c) Within W'wise, type in (or amend an existing file) a list 
of all the variable, function, and procedure names that you 
will wish to abbreviate: one name per line. 

d) Save this list, if not already done so, with option 1 of 
the menu -eg "L.FROG". This file will be read in by 
REPVAR from disc, not from memory. 

e) From W'wise, load W.REPVAR into a segment -eg SEG 9 

#) Press SHIFT+#9 to run REPVAR 

g) It will prompt you from there on. 


P.5. Remember to Keep the original Basic program intact, in case 


there are further modifications to be made - it’s no fun trying 
to understand a "scrunched" version, 
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R W.REPVAR 
REM GCF 14-APR-86 
REM 


REM Replace selected *LABELS" 
REM in BASIC source (TEXT area). 


REM INPUT & QUTPUT filenames are 
REM requested for the SPOOLED source. 


REM Filename containing list of labels 
REM is also requested. 


REM oo 
REM Prints report of changes, and ee 
R bytes saved, direct to printer! az 
R Ci required) iS 

or 
PROC init “2 
PROC request_input =m 
PROC request_output Une, 
PROC request_labels om 


PROC check printer es 
PROC remove_trailing_paduchr ae 
PROC get_first_REM D- 
PROC replace_labels es 
PROC tidy 2. 


NZ = @ a 
™% = 8 
= FALSE 


ay 
SELECT TEXT 
ENDPROC 


! 
srequest_input ne 
VDU 12 s 
PRINT “Source input file? “3; an 
L$ = GLKS = 
LOAD TEXT L$ 

VDU 13,18 

ENDPROC 


.request_output 

REPEAT 
PRINT “Source output file? "3 
Z$ = GLK 
CA = OPENIN(2$) 
IF CA > @ THEN PRINT "FILE EXISTS" 
IF CA > @ THEN CLOSERCZ 
VDU 13,18 
UNTIL C% = 8 

Saat os weer ss 
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erequest_labels 
REPEAT 


PRINT "Which file contains list? "; 
L$ = GLK$ 

C/A = OPENIN(LS) 

IF C/ = @ THEN PRINT "ERROR FILE?" 


VDU 13,18 
UNTIL C%>@ 
ENDPROC 
PRINT "Enable printer? (Y/N) "3 o 
R$ = CHRS(ASC(GCK$) AND &DF) SoS5cce 
Ubu 1318 S222555 
UNTIL RS="Y" OR R$="N* wewnmmm 
IF R$ = “Y" THEN Q% = TRUE pe ga 
ENDPROC Cee cee 
~ @WOOnw~ hI 
-remove_trailing-pad chr FOOD 1» 
PRINT "Starting..." x= hig 
AS = " "+CHR$(13) fo cs 
BS = CHR$(13) a og 
REPEAT it 
REPLACE A$,BS Zoe 
UNTIL EOT i 
ENDPROC Nee 
.get_first_REM Syn 
CURSOR TOP = 
FIND "REM" re 
A$ = GLTS Qo 
IF G4 = TRUE THEN YDU 2 out 
VDU 13,16 ere 
DOLINE A$ MOO 
VOU 13,10,13,18,3 Rear 
ENDPROC Soe 
DN b= bee 
replace_labels nn 
REPEAT OW On 
PROC get_A 
PROC get_B 
a = 8 
CURSOR TOP 
REPEAT 


REPLACE A%,8S 
IF EOT=FALSE THEN 0% = O% + 1 
UNTIL EOT 
PROC report 
UNTIL EOF #CZ% 
a EO ROG es 
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As = GLFS#CY 
UNTIL ASC(A$) > &20 AND A$) ** 
ENDPROC 


.get_B 
REPEAT 
PROC create_B 
CURSOR TOP 
FIND 8 
UNTIL EOT 
ENDPROC 


*Z°TONNOS oP 
ZAdOTVSANS OF 
‘T*TONNOS az 
T3d073ANN3 81 


-create_B 

X% = &41 + (1% MOD 54) 

IF X% > &5A THEN X% = X% + 4 
YA = &41 + (1% DIV 54) Be BN 
IF Y% > &5A THEN YX = Y% + 4 Gy ee Om 
BS = CHRS(X%) + CHRS(Y%) 
I~Z= 14+ 1 

ENDPROC 


gal 
‘ys 
aT 
‘rt 


I 


-feport 
DY LEN(A$) - LEN(BS) 

MX O% * DY 

TA = Th + MY 

DOLINE * GOT 5,1@,15,28,25 W" 
IF Q@% = TRUE THEN VDU 2 
DOLINE STRS(NZ) + ° T" 

DOLINE BS + * T" 
DOLINE STR$<(0%) + 
DOLINE STR#(DZ) + 
DOLINE STRS<(MA) + 
DOLINE STRS<(TX) + 
DOLINE At 

IF MZ < 1 THEN DOLINE * === ERROR >* 
VOU 13,16,3 

ENDPROG 


- tidy 

VOU 13,16 

PRINT "...Finishing" 
CLOSERCZ 

SAVE TEXT 2% 
ENDPROC 


a oo a 


~ 
= 
wow 


s 8s 8 s 
+ 
s 


a 
a’ eas 
Wop’ OS-'H'H HS sce’ soe ooz'9ez-'9z-' 
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2? 


DO COO 20 00 26 20-00 0c 00 Of 00 58 00 08 00 06-00-00 00-00 00 20-00 56 00 Oo OC OO 


Source input file? S.PAS25 

Source output file? W.PAS25 

Which file contains list? L.PAS25 
Enable printer? (Y/N) N 
Starting... 

REM PAS - Parsed Adventure System 


1 BA 3 2 6 6 test 

2 HA 3 2 é 12 time 

3 JA 3 5 15 27 title_n 

4 KA 3 3 15 42 title_a 

5 LA 14 2 28 78 line 

é NA 4 3 12 82 range 

7 OA 18 3 54 136 words 

8 A 5 8 40 176 table_size 
9 SA é 3 18 194 _read 

18 UA be) 13 65 259 —cond_text_acts 
ee Finishing 


Q.MODE 7 CHARACTERS 

"In MODE 7, PRINT TAB(X,5) CHR$131;CHR$157;CHR$12? does not work 
for values of X less than 2. Why? Can it be made to work for 
values of @ and 1?" 


A. I’m sorry, but I can’t make the PRINT statements misbehave. 
As you would expect, the background bar moves to the right as 
you increase X (because you are moving the control characters), 
but it works with both @ and 1 on my machine, which has BASIC 2 
and OS 1.2. 

It may only occur on a BASIC 1 or OS 1.@ machine. 

Has anybody else had this problem and found a solution? (AF: 
being Mode 7, the first three characters which specify a colour 
to be used are also "printed", though they appear as spaces. So 
if you are sending three character codes down, you cannot get 
text itself to start any earlier on the screen line than the 4th 
position.) 
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FILLING SHAPES 


Beryl D found that the PLOT 72-79 range would fill shapes by 
drawing lines horizontally across the shape, but went searching 
for a PLOT command that would fill with vertical lines. These 
PLOT commands weren't implemented until OS 1.2, so weren’‘t fully 
documented in the BBC User Guide. The ‘Advanced User Guide’ is 
more helpful (p.46@), 


Apart from finding the effects of PLOTS$-95, she couldn’t find a 

command to do this. In fact there doesn’t appear to be one. 

The technique is to ‘manually’ plot the top and bottom Y 

sorerginates for the same x position, Mave to one and Draw to 
e other. 


The first listing shows the PLOT77 command used to fill a box 
horizontally, then how to fill this simple shape vertically. 


3 REM fill simple boxes 

18 offset/ = 3080 

20 MODE! 
30 PRINTTAB(@,15)"Horizontal fills" 
48 PROCbox(106, 108) 
5@ FOR 1% = 106 TO 408 STEP 4 
6@  PLOT77,200,1% 

NEXT 


9@ PRINTTAB(19,@)"Vertical fills” 

106 AX‘=60@ :BA=608 

118 PROCbox(A% , BZ) 

120 FOR fi11% = AX TO (AX%t+offsetX%) STEP 4 
136 MOVE fi11%,BA :DRAW fi11Z%, Butoffset% 
14@ NEXT 

15@ END 


17@ DEF PROCbox(X% ,Y~%) 

188 MOVE X%,Y% : 

198 DRAW XAtoffset4%,Y%  :DRAWXZAtof fset%, WAtoffset” 
DRAWS, , Y%to0Fffset% = DRAWXZ ,Y% : ee 

286 ENDPROC 


The next two listings show how more complex shapes can be filled 
using vertical lines. The first is for ‘one-off’ shapes; the 
second is of more general use in a program. Each assumes there 
is a mathematical function defining the top-Y and bottom-Y 
lines for each step across the x-axis. 
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1@ REM "Simple" method to fill complex shapes. 
26 MODE 1 
36 PROCshape_a 

END 


66 DEF PROCshape_a 

7@ LOCAL XY 

86 FOR X4 = 260 TO 1800 STEP 4 

98 MOVE XX, X%/2 

160 DRAW X%, 788+208*SINCRAD(X4)) 
11@ NEXT xX% 

128 ENDPROC 


1@ REM "General® method to fill complex shapes. 

28 MODE 1 

38 ERE SH ape Baty ced A RA0 a ENG aa ite ss eI neKner 
EN 


68 DEF PROCshape_b(colour%,LX%,RX% ,F1$,F 2%) 
7@ LOCAL XY 

86 GCOL @,colourZ 

9@ FOR X% = LX% TO RX“ STEP 4 

166 MOVE X%, EVAL(F1$) 

110 DRAW XY4, EVAL(F2$) 

120 NEXT X% 

136 ENDPROC 


1358 DEF FNdiag(x%) = X4/2 
178 DEF FNsine<xX%) = 706+200%SIN(RAD(XY)) 





The odd characters in the listing p.19-20: the half is a 
backslash \ ;the "micro" is a tilde ~ in disquise. 


HALL OF FRAME: 


Chuckie Egg 345,218 Matthew Davidson 
Felix in the Factory 18,606 Felix 
Arcadians 42,328 Felix 


°747" 7435 Felix 


Oe A Oe OO OO OO OE OO OO OO EE > OO OD OO OD. OD OS OO OO OG G- -6- 
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SHARE PORTFOLIO 
J.G.Heywood 


Do you have a few shares, and wonder whether you are doing as 
well as those ‘managed’ portfolios which advertise lavishly? If 
you buy shares and sit on them it is easy to see how much you 
have gained, or lost. But if you sell some and buy others it 
becomes more complex. Here is a system, based on a spreadsheet 
to measure your gain over a periad. I have set mine up on 
INTERSHEET, but the system can be easily converted to any other 
spreadsheet. 


START DATE 

You need to decide on a start date, at which you Know the market 
price of all the shares you held. If you have not got that 
information, you will have to start now. The idea is that you 
start with a sum of cash, most of which is used to theoretically 
set up your portfolio at the start date, but you have a little 
cash to spare to buy new shares or take up cash issues etc. You 
earn interest on the amount in your cash account at the end of 
each month. Dividends go into your cash account, unless you take 
them as extra shares. If you intend to greatly expand your 
portfolio, you had better start with a bigger cash float, 
although it wont matter if you overrun it a little, as you will 
Just be charged interest. All transactions are supposed to take 
place on the last day of each month. 


SETTING UP 

Suppose we set up at 1 Jan, with 4 companies. Begin the sheet as 
follows: 

Rows 1 & 2. Any Headings you want 

Row 3: A3 “Month":B3 to E3 the names of your 4 companies. 
Column A: A4 "Dec":AS5 "Jan":Aé "Feb" etc.:A5@ "TOTALS" 

Now in row 4 we enter the number of shares held in each company 
at the end of December, and then put the formulae for totals in 
row 5@ (to allow you to qo on for nearly 4 years). BS@ is 
SUM(B4:B49), or however your spreadsheet expresses it. 


SH 

The next block of the sheet from rows 51 to 10@ looks similar 
but deals with the cash spent or gained. Copy row 3 into row 53, 
but add a few more column headings: 

F533 "TOTAL", G53 “Interest Rate", H53 "Month Rate", 1[53 
"Interest". J33 "Cash", or suitable abbreviationsfor them. 

In row 54 for each company we enter the amount it would have 
cost us to buy our shares on the last day of December. Calculate 
this by hand as: Number of shares X market price X 1.025, to 


OO OO 0 00 0 00 80> 00 00 0 00 OO 0 00-00 06-06 00> 006 0 00 00 00-00 00 m0 CO 06 OO 
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allow for the brokerage you pay in buying. F54 has the formula 
for the sum of B54 to £54, and replicate this throughout the 
column to F99, F534 shows us the total money needed, so settle on 
a Starting sum a little above this. If our total were say $9652, 
we would start with $10,000, and enter this in J52, for 
reference. Our cash left is then J52-F54. In row 55 enter any 
money you actually spent in buying shares (take it from your 
contract notes), or negative any you received from sales or 
dividends, during January in the appropriate column. The total 
of this will appear in F55. 


INTEREST 

In G55 enter the rate of interest you could have got during 
January for call money at the bank or elsewhere. Suppose this is 
15%. Since interest is compounded monthly the monthly rate is 
not just 15/12, it is actually the 12th root of (1.15) minus 1. 
In spreadsheet terms this is: EXP(LN(1+G55/100)/12)-1. Enter 
this formula into H55 and replicate throughout to H99. Then in 
155 we calculate the interest we would have earned during 
January on our cash balance at the end of December. This is: H55 
X J54. And our cash becomes J54 -F55 + 155, which is entered 
into J55. Replicate this formula through to J99. 

Row 10@ contains the totals of the moneys in all the columns 
from B to F, also I. And J10@ is our final cash, which is 
J52-F 10041100. Complete the entry of all transactions for all 
months up to the present for both numbers of shares,and money 
spent, and make the sheet re-calculate, if you have been in 
manual mode. In the example, in January we sold 100 Brierley and 
bought 1@@ Chase and 100 F/CHAL, and in February received a 
dividend from NZI. Nothing happened in March. 


SUMMARY 

The next block shows what the portfolio is worth at the end of 
March. Copy the headings in B3 to F3 into B103 to F103. A104 is 
"NUMBERS", and transfer the number of shares in each company 
from line 5@ into line 104. (That is, B104 =B5@ etc.). Now A105 
is "PRICE", and in row 105 enter the current price (as at end 
March) of each share. Ai@6 is "VALUE", and the formula for B16 
15: B104 X Bi@S X 6.975, to allow for brokerage if we were to 
sell the shares today. F1@46 is the sum of Bi@6 to E106, and is 
the total value of the shares today. The total portfolio value 
1s this amount plus the final cash, which we calculated in J10@. 
So the total value, to compare with our Start, is F106+J100, and 
if we want it in percentage growth terms we divide this by J2. 


You can get the value at any time, just enter the current prices 
into row 165. 


OD OD DO OO OO OO 06 SO CO 00 00 0 OC OO OO CO OO OO OG SO OG SO 00 0 SO 06 30 0G OO 
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REFINEMENTS You could enter the ‘after tax’ value of your 
dividends for more accuracy, or you could make your rows the 
actual dates of transactions, and calculate interest on a daily 
basis, but unless you are dealing in a very big way, I doubt if 
it would make very much difference. 

You might also arrange to store the value from 1106 in another 
table every time you enter new prices and revalue it. 


Pe. Shanme) : aemeea! eceedl | NenEnen| MNGNEE “en | ereees Ongar) jeeeeaee 
1 DEMO SHARES 

2 NUMBERS 

3 Month BIL CHASE F/CHAL NZI 

4 Dec 406 = 588 = 1888 = 588 

5 Jan -106 108 108 


6 Feb 

7 Mar 

58 TOTAL 300 ©4688 = 1188 =: 588 

52 CASH = $ 16008 
53 Month BIL . CHASE F/CHAL NZI TOTAL Rate Monrate Int Cash 
54 Dec 3075 2521 2921 882 9399 601 
55 Jan -751 562 288 31.19 8.8146 ~=— 8.78 579 
36 Feb -56 = -58)—- 17 8.8132 7.62 636 
37 Mar 8 168.6124 7.92 644 
HH TOTAL 2324 3623 3281 832 9386 24 644 
! 

182 VALUE AT END MAR 

103 BIL CHASE F/CHAL NZI TOTAL CASH G.TOT % GAIN 

164° NOS. 3080 6881108) = 588 


105 PRICE 8.58 6.35 2.65 1.68 
106 VALUE 2486 3715 2842 B19 9862 644 18506 5.86 


PEPE SS TAT EE ES AT AAO 
SOLIDISC 256skK EXPANSION 
M SMITHIES 


An unexpanded BBC has room for four Eprom/Rom-based pieces of 
software on board, one of which must be Basic, and the other a 
DFS (if discs are to be used). This leaves only two slots (or 
Banks) for. machine code monitors, word processors, other 
languages etc. Each of. these rom-based pieces of software 
occupies the same position in the BBC memory map; from address 
&2000 to &ABFFF. Switching between them is achieved by writing 
the bank number to location &FE3@ (the ROM select latch), This 
is normally carried out by the Operating System. Although the 
unexpanded Beeb has only 4 such banks, up to 16 can be handled, 
and are identified as being Rom banks 0-15 (or &@ to &F) 


OO OD > 00 08 00 OG 06- 00> 00> 00 90> 00> 90-9 OD 90> OF 0 > 90 00 0 -00- CO Oe 06 00 cO- 
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Several add-on boards are now available supplying up to the 

maximum of 16 banks as vatying combinations of Rom and Ram. 

Once a number of Ram banks are installed the power of the Beeb 

can be increased in a number of ways including: 

{. Loading normally Eprom-based software from discs 

2. Claiming back some or all of the Video memory for program 
use - this can mean up to 20K with the higher modes. 

3. Setting up a Ram disc. This acts like a disc drive, but in 
reality is within the Beeb’s memory. This will be lost when 
the Beeb is powered off, but provides almost instantaneous 
access to disc software when in use. 

4, Developing one’s own Eprom-type software before producing a 
version on a chip. 

5. Setting up a large printer buffer. 


Only one board appeared to allow all of the above, and at the 
same time. This was the Solidisc 256K Expansion board costing 
about ‘150 before tax. This board had the additional feature 
of allowing the speed of the Beeb to be doubled when required. 
This is probably not much use for games, but qreat for serious 
applications. 


After several lengthy discussions with my Accountant and Bank 
Manager (my wife), it was decided that I could order one. This 
I did by phone one night, paying by credit card. After several 
months of waiting, the great day finally arrived and I collected 
my small package from Customs. The unit was not very securely 
packed in a plastic video tape box where it had rattled about 
somewhat. Supplied with the unit were two 40@-pin IC sockets of 
a cheap type, which had been severely damaged, so I decided to 
replace them with better quality ones. 


Fitting the board was fairly straightforward and did not require 
any soldering. Even so, it should not be undertaken by anybody 
worried about tinkering with their machine’s internals. The 
256K board plugs into the 6502 socket (IC1) and the old 6502 can 
be stored away somewhere - a new 65C@2 is included in the 
package as a high speed replacement, and fits on the top of the 
new board. The two 4@-pin sockets must first be plugged into 
the 6502 socket so as to elevate the board above various other 
components on the Beeb’s motherboard. 


Three wires connect to links S20, S21, S22. These just push on 
but I would recommend making the connections more permanent by 
soldering. The intended connections would tend to work loose if 
the machine were moved round very much. Only two other 
connections are necessary and are achieved by way of twa 
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supplied IC hooks. One connects to pin 9 of IC76 and is the Rom 
select line. The other is supposed to connect to a leg of 
resistor Ri@é - this supplies the 4MHz clock. Pravided 
everything works ok, I would recommend also making these 
connections more permanent with solder. 


So far so good. I switched on and lo and behold, everything 
appeared to work perfectly. 


The diagram with this article shows the new memory map of my 
Beeb with the 256 board installed. The four Rom slots on the 
motherboard are numbered 0-3 (left to right). The four Rom 
slots on the expansion board are numbered 7-4 (top to bottom). 
The Ram banks are numbered §-15 (&@F) - slightly different to 
how the instructions describe them. In addition to the normal 
Rom latch at &FE3@ there are now these other important 
locations: 


&FE32 

This enables the bank for writing into. The bank number is 
written to &FE32 eg: 

LDA #8&80A:STA &FE32 

Any future writes to locations &$000-&BFFF will be to this bank. 


&FE34 

This is the SHADOW register and determines how big the Shadow 
Ram is going to be. 

&FE34=800 is normal, Shadow Ram is 20K and Sideways Ram is 12k. 
&FE34=&01 gives Sideways Ram 31k, Shadow Ram 0K 

&FE34=802 gives Sideways Ram @K and Shadow Ram 30k, 


&FE36 

This is the SIZE Register and determines where in the memory map 
the 32k block of RAM exists. More detail is in the diagram. 
&FE36=800 is normal, the 32k extends from &3000-&B000 (if Shadow 
Ram is used) 

&FE36=810 positions the block from &&8000-&F FFF. In this case no 
Shadow Ram is available, but Sideways Ram is 32k 

&FE36=820 positions the block from &40¢0-&C@00. This is useful 
for Mode 3 Shadow Ram, and leaves 16K free for Sideways Ram. 
&FE36=840 gives the largest Shadow area possible, from 
&900-82000. It leaves &8000-&8800 (2k) for Sideways Ram. 
&FE36=88@ is currently undocumented by Solidisc. It swaps the 
16K blocks from &8000-& C000, and &CO00-&F FFF around. 


In order to load the Rom software into Ram banks I modified an 


existing Menu program of mine. However the Solidisc Manager Rom 
contains routines to do this. 


DO 00-20 00 20 00> 00-00 00 06> 00 00> 00 00 00--00- 00-00 00-90-00 00 00 00-00 20 00-00-00 
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COMPLAINTS & PROBLEMS 


4. The instructions supplied with the board consisted of only 5 
A5 pages. The first of these is devoted to fitting 
instructions. The remaining pages give a brief description of 
the technical features and some very sketchy instructions on how 
to make use of them. 


2. The 32K Manager Rom is not yet available. A 16K version was 
sent instead, but did not contain some of the mecessary 
routines. 


3. I had previously purchased and programmed some 32K Eproms 
(272565). These can contain 2 {6K Roms - for example, View and 
Viewsheet. When inserted into the new board, one of the Roms is 
visible (resident), and the other is invisible (backup). It 
should have been possible to move backup Roms into Ram banks 
from where they could be used. The instructions on how to do 
this were not supplied. 


4, The 200K Ram disc option did not work at all. The 16k 
Manager Rom contained the necessary software but it had no 
obvious effects. 


5. The 4MHz option worked but was rather fragile. crashing 
programs occasionally, and corrupting the screen at times. 


6. The free Wordwise Plus package was not included. 


FIXES 

Armed with my list of complaints I decided to ring Solidisc and 
approach them directly. I spoke to Mark, one of the technical 
advisors. He proved to be very helpful and rang me on several 
subsequent nights until all my problems had been solved: 


The 32K Manager Rom and Wordwise Plus will be sent on when they 
are available. 


The Ram disc option will work 1f you have their 2.2 DFS, as will 
their *MENU command. They rushed a disc copy to me and I can 
confirm that it does the trick. However the DFS only works with 
the standard 3271 interface and not the newer 1770 one. 


The 4MHz problems can be cured by attaching the 4MHz wire to pin 
> of 1C44 instead of to the resistor leg. I was informed that 
the screen corruption was due to the IC in socket 14 (Video Ram 
buffer?) not being fast enough to cope. An ‘ALS’ version af the 
Same chip is necessary (74ALS245). So far I have been unable ta 
locate one of these. 
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My 32k Eprom problem proved to be .a very difficult one to 
resolve. After several phone calls (mainly Mark ringing me), it 
was finally nailed. No hardware modifications were needed for 
this. Not mentioned in their instructions, location &FE36 can 
have another value written to it - &8@ - which has the effect of 
Swapping the 2 {6K programs round and allowing access to the 
previously hidden (backup) other half. This fact took a week 
for Solidisc Technical Experts te uncover: Solidise obviously 
have an internal communications problem and not only an external 
one. The short program at the end of this article will move a 
backup Rom into a specified Ram bank. 


I am pleased to relate that everything is now working fine 
except for the occasional screen corruption when switching to 
the 4MHz option, and I can live with that. 


I have now managed to install 4*32k eproms on the Beeb 
motherboard. To achieve this it is necessary to connect pins 1 
& 26 on the eproms to corresponding pins on the Solidisc 256k 
board as per their instructions. However what they don’t tell 
you is that it is also necessary to disconnect pin 27 from the 
eproms on the motherboard and then connect it to a correspondin 
eprom pin 27 on the 256K board. I can now have a total o 
-16#16K Roms on board, in 8 banks of 16k resident and 16k backup, 
plus 256k of sideways ram in $ banks of 32k also. 


It should be noted that the 4MHz option, operated via a hardware 
switch attached to the 256K board, only affects the Roms and any 
Rom software loaded into sideways Ram banks. It does not affect 
any roms present on the motherboard, mor does it appear to 
affect the Timers, the Operating System itself, or programs 
running in Ram. Where it really comes into its own is in 
running Rom-based products such as word processors. spreadsheet, 
data base. and lanquages (Pascal, Forth etc). 


i@ Readbank=? must be @-? 

28 Writebank=15 must be 8-15 

360 FOR N=@ TO 2 STEP 2 

4@ PY=&BeG 

3@ [OPT N 

68 LDX &F4 store current bank 
76 LDA #&0O6:STA &90:LDA #&BO:STA £91 

88 SEI Disable interrupts 
98 LDA #8@:STA &FE36 switch halves 

108 LDA #Readbank:STA &FE30:STA &F4setup from bank 
118 LDA WWritebank:STA &FE32 setup to bank 


126 .Block LDY #&08 
130 .Byte LDA (£98) ,.¥:STA (&90> 4: INY 
14@ BNE Byte move 254 bytes 
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15@ INC &91:LDA £91 


146 CMP #&C@ 
178 BNE Biock move 14k 
186 LDA #&08:STA &FE36 Restore normal value 
196 STX &FE30:STX &F4 Restore current bank 
206 CLI:RTS Re-enable interrupts 
21@ J:NEXT N 
220 CALL &B@@ Call execution address 
1 Hy 4 
1 ; QAM Yanks | 
i eer war <— ota a Wot emacrien: 2, 
cl ariel Hy 
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‘ enks 
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USER GROUP MEETINGS 


AUCKLAND: sneets 2nd Wednesday of the month, 7.38pm, Conference Rooms, 
Auckland Secondary Teachers College,é8 Epsom Ave, Epsom. ph 
Dave 778-638 x Si8{bus) or Kerry 695-355. 
North Shore: meets last Wednesday of the month, 7.36pm, 
Salvation Army Hall, Glenfield Road, Glenfield ph Chris 
419-0543 (wk) 


CHRISTCHURCH: fortnightly workshops, Monday 6.38pm at Hagley High Schoo}. 
ph. Michae) 582-247, 

DUNEDIN: first Thursday of the month. Phone Martin McDowall 42-631 

HAWKES BAY: Alternative months Hastings & Napier. Contact Kendall Napier 


435-624, Bob Taradale 446-955, Mitch Hastings 778-235. 
INVERCARGILL: -Phone Evan 330-444 Invercargill. 
PALMERSTON NORTH: -Phone Tom Skinner 83-889(wk) 


TAUPO: meets every second Wednesday @ 7pm. Contact David 84-215 ‘hi, 
85-124 (wk). 

TAURANGA : ~every second Wednesday. ph. Chris & Jane 65-076, 

TIMARU: ~Phone Lloyd van der Krogt Timaru 61-412, 

TOKOROA: smeets first Friday of each month, Tokoroa High School, Spm. 
Phone Brian 67-625 Tokoroa. 

WAIKATO: -first Monday of the month 7.36pm Waikato Tech Institute. Ph. 
Alison or John, Morrinsville 4495. 

WELLINGTON: ~meets usually second WEDNESDAY of the month. 7.3@pm, Royal 


Society Lecture Theatre, Turnbull St, Thornadon. Other dates 
advised in Beeblet regional news. (May p.39) 
Workshops: fourth Wednesday of month, other venues. ph. Don 
848-235 or Mike 785-437, 
OTHER CENTRES: - Vet us Know and we will publish details here 
THE NEWSLETTER: 
CONTRIBUTIONS:-most welcome. Listings should be sent tn on tape or disc. ‘Tape 
- 2 copies, one at 308 baud please). Please include written explanation of 
listing; text and graphics only material welcome too. 
DEADLINES:- For a particular issue, the last day for material +s the last day of 
the month prior to publication. 
ADVERTISING:- Rates are $20 per half page (camera ready), deadline as above. 


Copyright (c) BBC/ACORN COMPUTER USER GROUP OF NZ INC. Published monthly except 
January and mailed to financial members. Registered Publication with NZPO 
MEMBERSHIP: 

Menbership of the ety, joe iS on payment of an annual subscription from April 
to March. For the 1986/7 year it is: $38.08, plus $5.86 for Wellington members 
as a local branch levy, which entitles attendance at meetings as detailed above. 
Joining or renewing members get al! the back issues of the current year - those 
Joining from 1 October may have half the annual sub waived and only receive 
newsletters from 1 October. 
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